home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 176 / 176.d81 / b.hrws glitch (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  794b  |  21 lines
  1. 0 poke53280,.:poke53281,.:print"[147][159]
  2. 1 q$[178][199](34)
  3. 2 p$[178]"hrws.bas.v1.0"
  4. 3 dv[178][194](186)[175]15[176]8
  5. 7 [153]:[153][166]5)"(NULL)(NULL)(NULL) 'left$i-(NULL)es (NULL)orkstation' str$right$(NULL)(NULL)":[153]:[153][166]18)"in":[153]
  6. 8 [153][166]16)"str$(NULL)right$(NULL)val"dv:[153]:[153][166]19)"&":[153]:[153][166]14)"left$right$(NULL) '(NULL)val(NULL)(NULL)(NULL)(NULL)'
  7. 9 poke198,.:wait198,1:getx$:ifx$<>chr$(13)thenprint"[147]":end
  8. 10 gosub95:ifethenprint"[147]"x$:end
  9. 20 print"[147]l[207]"q$p$q$","dv"
  10. 30 [153]"3360f=b-2:n$=mright$("q$"gw"q$",f,1)+"q$"."q$":go(NULL)3400:oneg(NULL):f(NULL)s=.to7";
  11. 40 [153]":z=.:v=732+s*2"
  12. 50 [153]"3369d=wx*8+8:u=2:go(NULL)46:onsl-1or-eg(NULL)3390:go(NULL)846:p(NULL)v,wx+1:p(NULL)v+1,wy+1"
  13. 60 [153]"396go(NULL)6:#99:#19:go(NULL)493:go(NULL)31:b=-b*asc(x$+r$)-65:x$="q$q$;
  14. 70 [153]":ifb<.orb>11tleft$re(NULL)"
  15. 85 [153]"open2,"dv",15,"q$"s:"p$q$":close2:satn"q$p$q$","dv"";:[143]stop
  16. 90 [151]198,8:[129]a[178]631[164]a[170][194](198)[171]1:[151]a,13:[130]:[128]
  17. 95 [159]2,dv,15:[160]2:[139]st[167]e[178][171]1:x$[178]"device"[170][196](dv)[170]" not present
  18. 96 ifnotethenopen2,dv,15,"i":gosub99:ifnotethenopen1,dv,2,":"+p$+",p,r":gosub99
  19. 97 close1:close2:return
  20. 99 input#2,e,x$:e=e>19:return
  21.